home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Mapping / m-mix < prev    next >
Lisp/Scheme  |  1998-08-11  |  477b  |  18 lines
  1. m-mix group list
  2.  
  3. This function is able to mix any number of element patterns in a list or 'interleave' <group> their elements sequentially.
  4.  
  5. (setq s1 '(a b c d e f g h i j k l))
  6. (setq s2 '(ag bh ci dl ek fl))
  7. (setq s3 '(an bn cn dn en fn gn))
  8.  
  9. (setq s1-div '(3 2 3 3 1))
  10. (setq s2-div '(1 2 3))
  11. (setq s3-div '(1 1 1 3 1))
  12.  
  13. (setq symbol
  14.       (m-mix
  15.        (list s1-div s2-div s3-div)
  16.        (list s1 s2 s3)))
  17. => (a b c ag an d e bh ci bn f g h dl ek fl cn i j k dn en fn l gn)
  18.